home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Libris Britannia 4
/
science library(b).zip
/
science library(b)
/
PROGRAMM
/
CC_C
/
0696A.ZIP
/
ED6.C
< prev
next >
Wrap
Text File
|
1983-12-03
|
640b
|
59 lines
/* ED6.C */
#include "ed0.c"
#include "ed1.ccc"
int outx,outy;
outxget()
{
return(outx);
}
outyget()
{
return(outy);
}
outchar(c) char c;
{
syscout(c);
outx++;
return(c);
}
outxy(x,y) int x,y;
{
outx=x;
outy=y;
scr_rowcol(y,x);
}
outclr()
{
scr_clr();
}
outdelln()
{
outxy(0,outy);
outdeol();
}
outdeol()
{
scr_clrl();
}
outuphas()
{
return(YES);
}
outdnhas()
{
return(YES);
}
outsup()
{
outxy(0,SCRNL1);
sysdelay();
scr_scup();
}
outsdn()
{
outxy(0,0);
sysdelay();
scr_scdn();
}